﻿Public Class ReportUT518
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            MemberDateFrom.Text = Now.ToString("dd/MM/yyyy")
            MemberDateTo.Text = Now.ToString("dd/MM/yyyy")
        End If
    End Sub

    Protected Sub btnPDF_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPDF.Click
        Try
            If MemberDateFrom.Text.Trim = "" Then
                Me.Master.Alert("วันที่สมัครสมาชิก เริ่มต้น ห้ามเป็นค่าว่าง\nกรุณาระบุ วันที่สมัครสมาชิก เริ่มต้น!")
                Exit Sub
            End If
            If MemberDateTo.Text.Trim = "" Then
                Me.Master.Alert("วันที่สมัครสมาชิก สิ้นสุด ห้ามเป็นค่าว่าง\nกรุณาระบุ วันที่สมัครสมาชิก สิ้นสุด!")
                Exit Sub
            End If

            Dim memFrom As String = Nothing
            Dim memTo As String = Nothing
            Dim chdDateFrom As String = Nothing
            Dim chdDateTo As String = Nothing
            If MemberDateFrom.Text.Trim <> "" Then memFrom = Common.UtilityDateTime.ConvertDate(Me.MemberDateFrom.Text).Value.AddYears(-543)
            If MemberDateTo.Text.Trim <> "" Then memTo = Common.UtilityDateTime.ConvertDate(Me.MemberDateTo.Text).Value.AddYears(-543)
            If ChildDateFrom.Text.Trim <> "" Then chdDateFrom = Common.UtilityDateTime.ConvertDate(Me.ChildDateFrom.Text).Value.AddYears(-543)
            If ChildDateTo.Text.Trim <> "" Then chdDateTo = Common.UtilityDateTime.ConvertDate(Me.ChildDateTo.Text).Value.AddYears(-543)

            Dim oDT As DataTable = New DataTable
            oDT = BL.Report.ReportUT518New(memFrom, memTo, chdDateFrom, chdDateTo, Me.incomeFrom.Text, Me.incomeTo.Text)

            If Not IsNothing(oDT) AndAlso oDT.Rows.Count > 0 Then
                Me.ClientScript.RegisterClientScriptBlock(Me.GetType, "ut518", "window.open('report/exportpdf.aspx?rptname=ut518', 'exportpdf','');", True)

                Dim lstParam As New List(Of String)
                lstParam.Add(MemberDateFrom.Text.Trim & " - " & MemberDateTo.Text.Trim)
                lstParam.Add(ChildDateFrom.Text.Trim & " - " & ChildDateTo.Text.Trim)
                lstParam.Add(incomeFrom.Text.Trim & " - " & incomeTo.Text.Trim)

                Me.Session("reportparameter") = lstParam
                Me.Session("reportdatasource") = oDT
            Else
                Me.Master.Alert("ไม่พบข้อมูล!")
                Exit Sub
            End If
        Catch ex As Exception

        End Try
    End Sub

End Class